home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 80
/
080.d81
/
puzzle boot 80
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
40 lines
10 poke53281,.:poke53280,12:print"[147]"
20 gosub260
30 sys57812"psb 80",8,0:poke780,0:poke781,0:poke782,48:sys65493
40 poke53272,29
50 b$=" [221][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][221]"
60 c$=" "
70 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
80 fori=1to7:printb$:next
90 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
100 poke214,8:print
120 print:printtab(9)"[212]he[208][213][218][218][204][197][208][193][199][197]"
140 print:printtab(9)"[154][193][159][204][207][193][196][211][212][193][210][154][197][216][195][204][213][211][201][214][197]"
150 print
170 sys57812"wd 80",8,0:poke780,0:poke781,16:poke782,205:sys65493
172 sys57812"fh 80",8,0:poke780,0:poke781,106:poke782,129:sys65493
174 sys33136,28000,"music 80"
176 sys57812"sp 80",8,0:poke780,0:poke781,0:poke782,192:sys65493
178 sys33133,28000,57344,5120
180 sys33130,57344,57344+5119,.
182 sys33130,49152,51126,.
190 open15,8,15,"r0:puzzle page 80=puzzle page 80":input#15,er:close15
200 print"[144]load"chr$(34)"puzzle page 80"chr$(34)",8"
210 print"run"
220 poke43,1:poke44,64:poke16384,0
230 poke631,13:poke632,13:poke633,13:poke198,3
240 new
250 :
260 poke214,15:print
270 print" [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
280 print" [152] "
290 print" [212][200][197] [208][213][218][218][204][197] [208][193][199][197] "
300 print" [194]y [194]arbara [200]. [211]chulak (c) 1991 "
310 print" [208]ublished on [204][207][193][196][211][212][193][210] #80 "
320 print" [211]ubscriptions 1-800-831-2694 "
330 print" [193][204][204] [210][201][199][200][212][211] [210][197][211][197][210][214][197][196] "
340 print" "
350 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
360 return
10000 open15,8,15,"s0:puzzle boot 80":close15:save"0:puzzle boot 80",8:end